home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85jun.lbr / BLACKBRD.BAS next >
Encoding:
BASIC Source File  |  1985-09-15  |  1.1 KB  |  33 lines
  1. 75 KEY 6,"GOSUB 9500"+CHR$(13) 'Go to Blackboard subroutine
  2. 9500 '
  3. 9510 '                Blackboard subroutine.
  4. 9520 '
  5. 9530 PRINT "See color monitor and press F6 for Blackboard screen."
  6. 9540 DEF SEG= H800: Z = PEEK (&H410)
  7. 9550 IF Z= 125 THEN 9030 ELSE 9560
  8. 9560 ON KEY (11) GOSUB 9730
  9. 9570 ON KEY (12) GOSUB 9750
  10. 9580 ON KEY (13) GOSUB 9770
  11. 9590 ON KEY (14) GOSUB 9790
  12. 9600 SCREEN 1,0,0,0
  13. 9610 SCREEN 0: COLOR 7,0,1
  14. 9620 LOCATE 25,1: PRINT "Move cursor with arrows. RETURN to mark."
  15. 9630 LOCATE 1,1,1,2,6
  16. 9640 FOR I=11 TO 14:KEY(I) ON:NEXT
  17. 9650 A$=INKEY$:IF A$<> CHR$(13) THEN 9650
  18. 9660 X=POS(0)
  19. 9670 Y=CSRLIN
  20. 9680 FOR I=11 TO 14:KEY(I) OFF:NEXT
  21. 9690 LOCATE 25,1
  22. 9700 PRINT USING " Location ##_,##_. SWITCHED to monochrome.";Y;X;
  23. 9710 LOCATE Y,X: GOSUB 8000
  24. 9720 RETURN
  25. 9730 IF CSRLIN>1 THEN LOCATE CSRLIN-1,POS(0),1 ELSE LOCATE 24,POS(0),1
  26. 9740 RETURN
  27. 9750 IF POS(0)>1 THEN LOCATE CSRLIN,POS(0)-1,1 ELSE LOCATE CSRLIN,40,1
  28. 9760 RETURN
  29. 9770 IF POS(0)<40 THEN LOCATE CSRLIN,POS(0)+1,1 ELSE LOCATE CSRLIN,1,1
  30. 9780 RETURN
  31. 9790 IF CSRLIN<24 THEN LOCATE CSRLIN+1,POS(0),1 ELSE LOCATE 1,POS(0),1
  32. 9800 RETURN
  33. +1,1 ELSE LOCATE